<script>-- Toggle back and forth between workouts and equipment as categorieson mouseUpif me = "Workouts" thenput "Equipment" into meput empty into bkgnd field "Selection"else -- me = "Equipment"put "Workouts" into meput "Current Selections..." into bkgnd field "Selection"end ifnewCard -- default: use all effortsend mouseUp</script>
</part>
<part>
<id>47</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>401</left>
<top>58</top>
<right>437</right>
<bottom>83</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Choice1Name</name>
<script>on mouseDownif bkgnd field "Date" is empty thendoPopup the name of me,"Pace,Cum Dist,Cum Time,Pulse,Wght"if (the number of words of me) = 1 thenput return before meput "n.a." into bkgnd field "Carry1"elseput 0 into bkgnd field "Carry1"end ifend ifend mouseDown</script>
</part>
<part>
<id>48</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>434</left>
<top>58</top>
<right>470</right>
<bottom>83</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Choice2Name</name>
<script>on mouseDownif bkgnd field "Date" is empty thendoPopup the name of me,"Pace,Cum Dist,Cum Time,Pulse,Wght"if (the number of words of me) = 1 thenput return before meput "n.a." into bkgnd field "Carry2"elseput 0 into bkgnd field "Carry2"end ifend ifend mouseDown</script>
</part>
<part>
<id>51</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>102</left>
<top>21</top>
<right>221</right>
<bottom>44</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Selection</name>
<script>on mouseDownif me = "Current Selections..." then doWorkoutselse doEquipmentend mouseDown-- Show a hierarchical popup menu (and possibly a list) to select-- one or more workouts for different sports to function as filters.on doWorkoutsglobal allTypesput allTypes into popupListrepeat with x = 1 to the number of lines of popupListput ",Warmup" after line x of popupListend repeatput bkgnd field "CurrentSelections" into CurSelif CurSel is empty then -- mark no selections in bkgnd fieldrepeat with x = 1 to the number of lines of allTypesput empty into line x of noSelectionsend repeatput noSelections into bkgnd field "CurrentSelections"else -- put checkmarks in front of selectionsrepeat with x = 1 to the number of lines of popupListrepeat with y = 2 to the number of items of line x of popupListif item y of line x of popupList is in line x of CurSel thenput "!√" after item y of line x of popupListend ifend repeatend repeatend ifget FullHPop (popupList)if it is empty then exit doWorkoutsput item 3 of it into theLineif item 2 of it is empty then -- selected sportput item 2 to 99 of line theLine of allTypes into thisListput "s=" into alreadySelectedrepeat with x = 1 to the number of items of thisListif item x of thisList is in line theLine of CurSel thenput x & "," after alreadySelectedend ifend repeatif alreadySelected <> "s=" then delete last char of alreadySelectedget ListSelect (3,thisList,alreadySelected,"Select workout types:",¬"Palatino,10")if it is not empty thenput it into line theLine of bkgnd field "CurrentSelections"end ifelse -- selected subitem: add or remove from selectionput item 4 of line 1 of it into itemSelectedput item 2 to 99 of line theLine of popupList into thisListput empty into newSelectionrepeat with x = 1 to the number of items of thisListput the number of chars of item x of thisList into nCif char nC-1 to nC of item x of thisList = "!√" thenif x <> itemSelected thenput char 1 to nC-2 of item x of thisList & ","¬after newSelectionend ifelse if x = itemSelected thenput item x of thisList & "," after newSelectionend ifend repeatif newSelection is not empty then delete last char of newSelectionput newSelection into line theLine of bkgnd fld "CurrentSelections"end ifend doWorkouts-- Show a popup menu to select equipment (shoes, etc.)on doEquipmentglobal allEquipmentdoPopup the name of me,(allEquipment)end doEquipment</script>
</part>
<part>
<id>57</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>262</left>
<top>25</top>
<right>312</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>From</name>
<script>on mouseUpanswer "Put day after last workout listed below into this field?"¬with "No" or "Yes"if it is "Yes" then updateFromend mouseUpon updateFromif bkgnd field "Date" is empty then-- use date of first workout card in stackput word 1 of the short name of card 1 of bkgnd "Workouts" into theDateif the result is empty thenconvert theDate to short dateput theDate into meelse put the short date into me -- error -> use today's dateelseput last line of bkgnd field "Date" into prevDateconvert prevDate to secondsadd 86400 to prevDateconvert prevDate to short dateput prevDate into meend ifend updateFrom</script>
</part>
<part>
<id>58</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>262</left>
<top>40</top>
<right>312</right>
<bottom>55</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>To</name>
<script>on mouseUpanswer "Put today’s date into this field?" with "No" or "Yes"if it is "Yes" then put the short date into meend mouseUp</script>
</part>
<part>
<id>60</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>315</left>
<top>25</top>
<right>330</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>-</name>
<script>on mouseDown -- on first press add one day (AddDays is in bkgnd script)if bkgnd field "From" is empty thenput the short date into bkgnd field "From"elseaddDays "From",-1end ifwait 30 -- and wait a while, to avoid immediate continuous addingend mouseDownon mouseStillDown -- on continued pressing, repeatedly add daysshow messageput "press the option key to move 10 days at a time"repeat until the mouse is upif the optionKey is down thenaddDays "From",-10else addDays "From",-2end repeathide messageend mouseStillDown</script>
</part>
<part>
<id>61</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>329</left>
<top>25</top>
<right>344</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>+</name>
<script>on mouseDown -- on first press add one day (AddDays is in bkgnd script)if bkgnd field "From" is empty thenput the short date into bkgnd field "From"elseaddDays "From",1end ifwait 30 -- and wait a while, to avoid immediate continuous addingend mouseDownon mouseStillDown -- on continued pressing, repeatedly add daysshow messageput "press the option key to move 10 days at a time"repeat until the mouse is upif the optionKey is down thenaddDays "From",10else addDays "From",2end repeathide messageend mouseStillDown</script>
</part>
<part>
<id>62</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>315</left>
<top>40</top>
<right>330</right>
<bottom>55</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>-</name>
<script>on mouseDown -- on first press add one day (AddDays is in bkgnd script)if bkgnd field "To" is empty thenput the short date into bkgnd field "To"elseaddDays "To",-1end ifwait 30 -- and wait a while, to avoid immediate continuous addingend mouseDownon mouseStillDown -- on continued pressing, repeatedly add daysshow messageput "press the option key to move 10 days at a time"repeat until the mouse is upif the optionKey is down thenaddDays "To",-10else addDays "To",-2end repeathide messageend mouseStillDown</script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>329</left>
<top>40</top>
<right>344</right>
<bottom>55</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>+</name>
<script>on mouseDown -- on first press add one day (AddDays is in bkgnd script)if bkgnd field "To" is empty thenput the short date into bkgnd field "To"elseaddDays "To",1end ifwait 30 -- and wait a while, to avoid immediate continuous addingend mouseDownon mouseStillDown -- on continued pressing, repeatedly add daysshow messageput "press the option key to move 10 days at a time"repeat until the mouse is upif the optionKey is down thenaddDays "To",10else addDays "To",2end repeathide messageend mouseStillDown</script>
<script>on mouseUpif the ID of this card <> (the ID of last card of this bkgnd) thenif the commandKey is down then -- go to last card in this sectionvisual effect wipe left to blackvisual effect wipe left to cardgo last card of this bkgndelse -- just go to next cardvisual effect wipe leftgo nextend ifend ifend mouseUp</script>
</part>
<part>
<id>86</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>341</left>
<top>288</top>
<right>362</right>
<bottom>310</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev Day</name>
<script>on mouseUpif the ID of this cd <> the ID of cd 1 of this bg thenif the commandKey is down then -- go to first card in this sectionvisual effect wipe right to blackvisual effect wipe right to cardgo first card of this bkgndelse -- just go to previous cardvisual effect wipe rightgo prevend ifend ifend mouseUp</script>
</part>
<part>
<id>89</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>102</left>
<top>46</top>
<right>207</right>
<bottom>61</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Effort</name>
<script>on mouseUpask "Enter effort levels, separated by commas:" with meif it is empty then exit mouseUpelse put it into meend mouseUp</script>
</part>
<part>
<id>92</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>107</left>
<top>288</top>
<right>141</right>
<bottom>301</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>DistUnit</name>
<script>-- Change distance unit, if necessary converting data already entered.on mouseUpput me into fromUnitif fromUnit = "miles" thenput "yards" into toUnitelse if fromUnit = "yards" thenput "km." into toUnitelse if fromUnit = "km." thenput "meters" into toUnitelse put "miles" into toUnitput toUnit into meif the optionKey is up thenset cursor to busy-- do conversions as necessaryput convertDistances (fromUnit,toUnit,bkgnd field "Distance")¬into bkgnd field "Distance"-- check if need to update cumulative distances tooif bkgnd field "Choice1Name" = "Cum Dist" thenput convertDistances (fromUnit,toUnit,bkgnd field "Choice1")¬into bkgnd field "Choice1"end ifif bkgnd field "Choice2Name" = "Cum Dist" thenput convertDistances (fromUnit,toUnit,bkgnd field "Choice2")¬into bkgnd field "Choice2"end ifend ifend mouseUp-- Convert a list of distances (one per line)function convertDistances fromUnit,toUnit,distListrepeat with x = 1 to the number of lines of distListif line x of distList <> space thenput convertDistance (fromUnit,toUnit,line x of distList)¬into line x of distListend ifend repeatreturn distListend convertDistances</script>
</part>
<part>
<id>93</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>107</left>
<top>300</top>
<right>141</right>
<bottom>313</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>TimeUnit</name>
<script>-- Change time unit, if necessary converting data already entered.on mouseUpput me into fromUnitif oldUnit = "minutes" thenput "hours" into toUnitelse put "minutes" into toUnitput toUnit into meif the optionKey is up thenset cursor to busy-- do conversions as necessaryput convertTimes (fromUnit,toUnit,bkgnd field "Time")¬into bkgnd field "Time"-- check if need to update cumulative distances tooif bkgnd field "Choice1Name" = "Cum Time" thenput convertTimes (fromUnit,toUnit,bkgnd field "Choice1")¬into bkgnd field "Choice1"end ifif bkgnd field "Choice2Name" = "Cum Time" thenput convertTimes (fromUnit,toUnit,bkgnd field "Choice2")¬into bkgnd field "Choice2"end ifend ifend mouseUp-- Convert a list of times (one per line)function convertTimes fromUnit,toUnit,timeListrepeat with x = 1 to the number of lines of timeListif line x of timeList <> space thenput makeNiceTime(toUnit,getSeconds(fromUnit,line x of timeList))¬into line x of timeListend ifend repeatreturn timeListend convertTimes</script>
</part>
<part>
<id>95</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>183</left>
<top>288</top>
<right>217</right>
<bottom>301</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>PaceUnit</name>
<script>-- Change pace unit, if necessary converting data already entered.on mouseUpput me into fromUnitif fromUnit = "min/m." thenput "m/hr." into toUnitelse if fromUnit = "m/hr." thenput "min/km." into toUnitelse if fromUnit = "min/km." thenput "km/hr." into toUnitelse put "min/m." into toUnitput toUnit into meif the optionKey is up thenset cursor to busy-- do conversions as necessary in the choice-field(s) labeled "Pace"if line 2 of bkgnd field "Choice1Name" = "Pace" thenput convertPaces (fromUnit,toUnit,bkgnd field "Choice1")¬into bkgnd field "Choice1"end ifif line 2 of bkgnd field "Choice2Name" = "Pace" thenput convertPaces (fromUnit,toUnit,bkgnd field "Choice2")¬into bkgnd field "Choice2"end ifend ifend mouseUp-- Convert a list of paces (one per line)function convertPaces fromUnit,toUnit,paceListrepeat with x = 1 to the number of lines of paceListif line x of paceList <> space thenput convertPace (fromUnit,toUnit,line x of paceList)¬into line x of paceListend ifend repeatreturn paceListend convertPaces</script>
</part>
<part>
<id>96</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>183</left>
<top>300</top>
<right>217</right>
<bottom>313</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>WeightUnit</name>
<script>-- Change the weight unit, and convert any weight data, as appropriateon mouseUpif me = "lbs." thenput "kg." into meelse put "lbs." into meif the optionKey is up thenset cursor to busy-- do conversions as necessary in the choice-field(s) labeled "Wght"if line 2 of bkgnd field "Choice1Name" = "Wght" thenput convertWeights (me,bkgnd field "Choice1")¬into bkgnd field "Choice1"end ifif line 2 of bkgnd field "Choice2Name" = "Wght" thenput convertWeights (me,bkgnd field "Choice2")¬into bkgnd field "Choice2"end ifend ifend mouseUp-- Convert a list of weights (one per line)function convertWeights newUnit,weightListif weightList is empty then return emptyif newUnit = "kg." thenput (1/2.2046244) into conversionFactorelse put 2.2046244 into conversionFactorrepeat with x = 1 to the number of lines of weightListif line x of weightList <> space thenput (line x of weightList * conversionFactor)¬into line x of weightListend ifend repeatreturn weightListend convertWeights</script>
</part>
<part>
<id>97</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>102</left>
<top>16</top>
<right>224</right>
<bottom>47</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>CurrentSelections</name>
<script></script>
</part>
<part>
<id>100</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>393</left>
<top>41</top>
<right>484</right>
<bottom>158</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>TallyMenu</name>
<script></script>
</part>
<part>
<id>101</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>393</left>
<top>21</top>
<right>484</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>MenuTitle</name>
<script>on mouseDownglobal scriptCallerput bkgnd field "TallyMenu" into MenuOptionsput item 1 of fullHPop (MenuOptions,"394,42",0) into theOptionif theOption is empty then exit mouseDownelse if theOption = "Add Card" thenset cursor to busyput true into scriptCallerdoMenu "Copy Card"doMenu "Paste Card"clearTally -- stack scriptput false into scriptCallerelse if theOption = "Delete Card" then-- Remove card if user really wants toif the number of cards of this bkgnd > 1 thenanswer "Are you sure you want to delete this tally card," &&¬"and not just clear it instead?"¬with "Delete" or "Clear" or "Cancel"if it = "Cancel" then exit mouseDownelse if it = "Clear" then clearTallyelseput true into scriptCallerdoMenu "Delete Card"if the short name of this bkgnd is not "Tallies" thengo prev -- go back into tally sectionend ifput false into scriptCallerend ifelse answer "You cannot delete the last tally card." &&¬"Clear it out instead?" with "Clear" or "Cancel"if it = "Clear" thenclearTallyend ifelse if theOption = "Clear Tally" thenclearTallyelse if theOption = "Compile Tally" thencompileTally "ask"else if theOption = "Update Tally" then-- without changing tally filter, update the tally to include-- any workouts added since last tally was compiledsend "updateFrom" to bkgnd field "From"put the short date into bkgnd field "To"compileTally "append"else if theOption = "Export Data" thenexportData -- bkgnd scriptend ifend mouseDown</script>
</part>
<part>
<id>102</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>22</top>
<right>484</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31383</icon>
<textAlign>center</textAlign>
<font>PD@=@Àá√∑</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>MenuArrow</name>
<script>on mouseDownsend mouseDown to bkgnd field "MenuTitle"end mouseDown</script>
<script>on mouseUpif me = "Comments…" thenshow bkgnd field "Comments"show bkgnd field "CommentCover"put "Hide" into meelse -- me = "Hide"hide bkgnd field "Comments"hide bkgnd field "CommentCover"put "Comments…" into meend ifend mouseUp</script>
</part>
<part>
<id>105</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>336</left>
<top>58</top>
<right>474</right>
<bottom>82</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>CommentCover</name>
<script></script>
</part>
<part>
<id>110</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>234</left>
<top>299</top>
<right>261</right>
<bottom>313</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Carry1</name>
<script>-- Change pace unit, if necessary converting data already entered.on mouseUpput me into fromUnitif fromUnit = "min/m." thenput "m/hr." into toUnitelse if fromUnit = "m/hr." thenput "min/km." into toUnitelse if fromUnit = "min/km." thenput "km/hr." into toUnitelse put "min/m." into toUnitput toUnit into meif the optionKey is up thenset cursor to busy-- do conversions as necessary in the choice-field(s) labeled "Pace"if line 2 of bkgnd field "Choice1Name" = "Pace" thenput convertPaces (fromUnit,toUnit,bkgnd field "Choice1")¬into bkgnd field "Choice1"end ifif line 2 of bkgnd field "Choice2Name" = "Pace" thenput convertPaces (fromUnit,toUnit,bkgnd field "Choice2")¬into bkgnd field "Choice2"end ifend ifend mouseUp-- Convert a list of paces (one per line)function convertPaces fromUnit,toUnit,paceListrepeat with x = 1 to the number of lines of paceListif line x of paceList <> space thenput convertPace (fromUnit,toUnit,line x of paceList)¬into line x of paceListend ifend repeatreturn paceListend convertPaces</script>
</part>
<part>
<id>111</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>265</left>
<top>299</top>
<right>292</right>
<bottom>313</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Carry2</name>
<script>-- Change pace unit, if necessary converting data already entered.on mouseUpput me into fromUnitif fromUnit = "min/m." thenput "m/hr." into toUnitelse if fromUnit = "m/hr." thenput "min/km." into toUnitelse if fromUnit = "min/km." thenput "km/hr." into toUnitelse put "min/m." into toUnitput toUnit into meif the optionKey is up thenset cursor to busy-- do conversions as necessary in the choice-field(s) labeled "Pace"if line 2 of bkgnd field "Choice1Name" = "Pace" thenput convertPaces (fromUnit,toUnit,bkgnd field "Choice1")¬into bkgnd field "Choice1"end ifif line 2 of bkgnd field "Choice2Name" = "Pace" thenput convertPaces (fromUnit,toUnit,bkgnd field "Choice2")¬into bkgnd field "Choice2"end ifend ifend mouseUp-- Convert a list of paces (one per line)function convertPaces fromUnit,toUnit,paceListrepeat with x = 1 to the number of lines of paceListif line x of paceList <> space thenput convertPace (fromUnit,toUnit,line x of paceList)¬into line x of paceListend ifend repeatreturn paceListend convertPaces</script>
<script>-- Hidden fields on this background:-- CurrentSelections, TallyMenu, Comments, CommentCover-- Make sure card looks right when we get thereon openCardif bkgnd field "CommentButton" = "Hide" thensend mouseUp to bkgnd field "CommentButton"end ifif bkgnd field "Date" is empty thenset the style of bkgnd field "Choice1Name" to "shadow"set the style of bkgnd field "Choice1Name" to "shadow"elseset the style of bkgnd field "Choice1Name" to "transparent"set the style of bkgnd field "Choice1Name" to "transparent"end ifend openCard-- Pre-fill the efforts field with all possible effort values,-- to make the desired format clearon newCardglobal allEffortsput empty into numListrepeat with x = 1 to the number of items of allEffortsput char 1 to offset(" ",item x of allEfforts)-1¬of item x of allEfforts & "," after numListend repeatdelete last char of numListput numList into bkgnd field "Effort"end newCard-- Compile all workouts of the types selected with the popup menus-- for sports & workout types or specific equipment,-- with the effort level(s), and within the date range specified.on compileTally whatglobal allSports-- check if any data already in fieldsif what = "ask" thenif bkgnd field "Date" is not empty thenanswer "Replace or append to existing tally data?"¬with "Replace" or "Append" or "Cancel"if it is "Cancel" thenexit compileTallyelse if it is "Replace" then-- Clear out all columnsput empty into bkgnd field "Date"put empty into bkgnd field "SportColumn"put empty into bkgnd field "TypeColumn"put empty into bkgnd field "EffortColumn"put empty into bkgnd field "Workout"put empty into bkgnd field "Distance"put empty into bkgnd field "Time"put empty into bkgnd field "Comments"put empty into bkgnd field "Choice1"put empty into bkgnd field "Choice2"put 0 into lineNrelse put the number of lines of bkgnd field "Date" into lineNrelse put 0 into lineNrelse put the number of lines of bkgnd field "Date" into lineNr-- record data about workout type selected, units to use, etc.put bkgnd field "From" into fromDateconvert fromDate to secondsput bkgnd field "To" into toDateconvert toDate to secondsput bkgnd field "TypeTitle" into theFilterif theFilter = "Workouts" thenput bkgnd field "CurrentSelections" into theSelectionselse put bkgnd field "Selection" into theEquipmentput bkgnd field "Effort" into effortsSelectedput bkgnd field "DistUnit" into distUnitput bkgnd field "TimeUnit" into timeUnitput bkgnd field "PaceUnit" into paceUnitput bkgnd field "WeightUnit" into weightUnitput bkgnd field "Choice1Name" into choice1put bkgnd field "Choice2Name" into choice2-- adjust for empty line in pop-up for one-word namesif line 1 of choice1 is empty then delete line 1 of choice1if line 1 of choice2 is empty then delete line 1 of choice2if (choice1 = "Pace") or (choice2 = "Pace") thenput true into doPaceelse put false into doPaceif (choice1 = "Wght") or (choice2 = "Wght") thenput true into doWeightelse put false into doWeightif (choice1 = "Pulse") or (choice2 = "Pulse") thenput true into doPulseelse put false into doPulse-- find first workout card on or after start dateput findFirstInRange (fromDate) into firstCardif firstCard is empty then exit compileTallylock screenset lockMessages to trueshow messagepush cardgo card firstCard-- Initialize variables for updating the scroll level-- (some are hardcoded, and must be changed as appropriate!)put the textheight of bkgnd field "Date" into theHeightput 18 into nrWorkoutsVisibleput (lineNr-nrWorkoutsVisible)*theHeight into curScrollput "Date SportColumn TypeColumn EffortColumn Workout " &¬"Distance Time Comments Choice1 Choice2" into theFieldsput 10 into nrFields-- go through all workout cards in date rangerepeat while (word 1 of the short name of this card) <= toDate-- check if correct sport & workout or shoe typeput false into includeThisWorkoutput false into includeThisWarmupif theFilter = "Workouts" thenrepeat with x = 1 to the number of items of allSportsif bkgnd field "Sport" = item x of allSports thenput line x of theSelections into workoutsSelectedexit repeatend ifend repeatif (bkgnd field "Type" is in workoutsSelected) thenput true into includeThisWorkoutend ifif (item 2 of bkgnd field "Distance" is not empty) and¬("Warmup" is in workoutsSelected) thenput true into includeThisWarmupend ifelse -- filter on equipmentif bkgnd field "Equipment" = theEquipment thenput true into includeThisWorkoutend ifif bkgnd field "WarmupEquipment" = theEquipment thenput true into includeThisWarmupend ifend ifput bkgnd field "Effort" into tEffort-- retain effort number onlyput char 1 to offset(" ",tEffort)-1 of tEffort into tEffort-- check whether effort level of workout meets search criteria-- N.B. this is less than ideal for warmups, which will generally-- be at a different effort level than the actual workout,-- but the difference should not rise to any odd outcomes.if (includeThisWorkout or includeThisWarmup) and¬(tEffort is in effortsSelected) then-- gather all data from this workout cardadd 1 to lineNrput "Compiling workout " & lineNrput word 1 of the short name of this card into tDateconvert tDate to short dateput bkgnd field "Sport" into tSportput bkgnd field "Type" into tTypeput bkgnd field "Workout" into tWorkoutput line 1 of bkgnd field "Comments" into tCommentsput bkgnd field "Distance" into tempDistanceif item 1 of tempDistance is not empty thenput convertDistance(bkgnd field "DistanceUnit",distUnit,¬item 1 of tempDistance) into tDistanceelse put empty into tDistanceif includeThisWarmup and¬(item 2 of tempDistance is not empty) thenput convertDistance(bkgnd field "DistanceUnit",distUnit,¬item 2 of tempDistance) into tWarmupDistanceelse put empty into tWarmupDistanceput bkgnd field "Time" into tempTimeif item 1 of tempTime is not empty thenput makeNiceTime(timeUnit,getSeconds(bkgnd field "TimeUnit",¬item 1 of tempTime)) into tTimeelse put empty into tTimeif includeThisWarmup and¬(item 2 of tempTime is not empty) thenput makeNiceTime(timeUnit,getSeconds(bkgnd field "TimeUnit",¬item 2 of tempTime)) into tWarmupTimeelse put empty into tWarmupTimeif doPace thenput bkgnd field "Pace" into tPaceif tPace is not empty thenput convertPace(bkgnd field "PaceUnit",paceUnit,tPace)¬into tPaceend ifend ifif doPulse then put bkgnd field "Pulse" into tPulseif doWeight thenput bkgnd field "Weight" into tWeightif tWeight is not empty thenput convertWeight(bkgnd field "WeightUnit",weightUnit,tWeight)¬into tWeightend ifend if-- jump back to tally card and enter data in appropriate formatspop cardunlock screenif includeThisWorkout thenput tDate into line lineNr of bkgnd field "Date"put tSport into line lineNr of bkgnd field "SportColumn"put tType into line lineNr of bkgnd field "TypeColumn"put tEffort into line lineNr of bkgnd field "EffortColumn"put tWorkout into line lineNr of bkgnd field "Workout"put tComments into line lineNr of bkgnd field "Comments"put tDistance into line lineNr of bkgnd field "Distance"put tTime into line lineNr of bkgnd field "Time"-- deal with the choice columnsput doChoice(1,choice1,tPace,tPulse,tWeight,lineNr)¬into line lineNr of bkgnd field "Choice1"put doChoice(2,choice2,tPace,tPulse,tWeight,lineNr)¬into line lineNr of bkgnd field "Choice2"put 1 into workoutsAddedelse put 0 into workoutsAddedif includeThisWarmup thenadd workoutsAdded to lineNrput tDate into line lineNr of bkgnd field "Date"put tSport into line lineNr of bkgnd field "SportColumn"put "Warmup" into line lineNr of bkgnd field "TypeColumn"put "-" into line lineNr of bkgnd field "EffortColumn"put "(" & tWorkout & ")" into line lineNr of bkgnd field "Workout"put "Warmup&cooldown for workout"¬into line lineNr of bkgnd field "Comments"put tWarmupDistance into line lineNr of bkgnd field "Distance"put tWarmupTime into line lineNr of bkgnd field "Time"-- deal with the choice columns only if cumulative time/dist.if word 1 of choice1 = "Cum" thenput doChoice(1,choice1,tPace,tPulse,tWeight,lineNr)¬into line lineNr of bkgnd field "Choice1"else put space into line lineNr of bkgnd field "Choice1"if word 1 of choice2 = "Cum" thenput doChoice(2,choice2,tPace,tPulse,tWeight,lineNr)¬into line lineNr of bkgnd field "Choice2"else put space into line lineNr of bkgnd field "Choice2"add 1 to workoutsAddedend if-- update the scroll-level so user can see what is going onadd (workoutsAdded*theHeight) to curScrollif curScroll > 0 thenrepeat with x = 1 to nrFieldsset the scroll of bkgnd field (word x of theFields) to curScrollend repeatend iflock screen-- go back to the workout card, and continuepush cardgo backend ifgo next cardif (the short name of this bkgnd) <> "Workouts" then exit repeatend repeat-- all done -> go back & finish uppop cardhide message-- make choice-popups non-popup if there is data in their columnif lineNr > 0 thenset the style of bkgnd field "Choice1Name" to transparentset the style of bkgnd field "Choice2Name" to transparentend if-- update date fields to reflect total date range in tallyput line 1 of bkgnd field "Date" into bkgnd field "From"put last line of bkgnd field "Date" into bkgnd field "To"end compileTally-- Deal with a choice column-- num = 1 or 2; choice is the type of data selected for that column;-- data = pace, pulse and weight values, as needed; nrWorkouts = the-- total number of workouts currently listed in the tally fieldsfunction doChoice num,choice,pace,pulse,weight,nrWorkoutsif choice = "Pace" thenreturn paceelse if choice = "Pulse" thenreturn pulseelse if choice = "Weight" thenreturn weightelse -- choice is a cumulative valueif nrWorkouts = 1 thenput bkgnd field ("Carry"&num) into curValueelseput line (nrWorkouts-1) of bkgnd field ("Choice"&num) into curValueend ifif choice = "Cum Dist" thenreturn ((line nrWorkouts of bkgnd field "Distance") + curValue)else if choice = "Cum Time" thenput getSeconds(bkgnd field "TimeUnit",curValue) into curValueadd getSeconds(bkgnd field "TimeUnit",¬line nrWorkouts of bkgnd field "Time") to curValuereturn makeNiceTime(bkgnd field "TimeUnit",curValue)else return spaceend ifend doChoice-- Export data compiled on this tally-card to a new or existing file-- Data will be exported in tab-delimited format, 1 line per workouton exportDataif bkgnd field "Date" is empty thenanswer "No data to export. Compile tally first."exit exportDataend if-- Get the name of the file which will store the dataanswer "Create new data file, or append to an existing file?"¬with "Existing" or "New"if it = "New" thenput newFileName("Name data file:",¬"Exercise data -" && the short date) into dataFileif dataFile is empty thenexit exportDataend ifopen file dataFileelseput FileName(TEXT,"Select data file to append to.") into dataFileif it is empty thenexit exportDataend ifopen file dataFilerepeat -- skip to end of fileread from file dataFile for 16384 -- max blocksizeif it is empty then exit repeatend repeatend ifanswer "Precede data by column-headings?" with "No" or "Yes"if it is "Yes" thenput card field "Athlete" of card "Title Card" into theAthleteif theAthlete is not empty thenwrite "Workouts of" && theAthlete & return to file dataFileend ifwrite "Date" & tab & "Sport" & tab & "Workout type" & tab &¬"Effort-level" & tab & "Workout" & tab & "Comments" & tab &¬"Distance" & tab & "Time" & tab & bkgnd field "Choice1Name" & tab &¬bkgnd field "Choice2Name" & return to file dataFileend ifrepeat with x = 1 to the number of lines of bkgnd field "Date"set cursor to busy -- make ball rotatewrite line x of bkgnd field "Date" & tab &¬line x of bkgnd field "SportColumn" & tab &¬line x of bkgnd field "TypeColumn" & tab &¬line x of bkgnd field "EffortColumn" & tab &¬line x of bkgnd field "Workout" & tab &¬line x of bkgnd field "Comments" & tab &¬line x of bkgnd field "Distance" & tab &¬line x of bkgnd field "Time" & tab &¬line x of bkgnd field "Choice1" & tab &¬line x of bkgnd field "Choice2" & return to file dataFileend repeatclose file dataFileanswer "Data exported."end exportData-- jump to the workout described on the line on which the user clickedon jumpToWorkout theLineset cursor to busylock screenput line theLine of bkgnd field "Date" into tDateif tDate is empty then exit jumpToWorkoutput line theLine of bkgnd field "Workout" into tWorkoutconvert tDate to secondspush cardgo card (tDate && "1")if the result is not empty thenanswer "Could not find corresponding workout." with "Sorry"pop cardexit jumpToWorkoutend ifrepeat while tWorkout <> bkgnd field "Workout"go nextif word 1 of the short name of this card <> tDate thenanswer "Could not find corresponding workout." with "Sorry"pop cardexit jumpToWorkoutend ifend repeatunlock screen with visual barn door openend jumpToWorkout-- add a number of days (subtract if nrDays is negative) to bkgnd-- field dateField, which contains the date in short format.on addDays dateField,nrDaysput bkgnd field dateField into tDateconvert tDate to secondsadd nrDays*86400 to tDate -- 86400 = # seconds per dayconvert tDate to short dateput tDate into bkgnd field dateFieldend addDays-- Return list of all fields that scroll simultaneouslyfunction theFieldsreturn "field Date,field SportColumn,field TypeColumn," &¬"field EffortColumn,field Workout,field Distance,field Time," &¬"field Comments,field Choice1,field Choice2"end theFields</script>
